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Microsoft Knowledge Base Article - 270844 

HOWTO: Create an Excel Histogram by Using Automation and Anaiysi; 
ToolPalt 

A ppteTo 

This article was previously published under Q270844 
SUMMARY 

This article provides a sample Visual Basic project that shows how to use the Analysis TooiPaic (ATP) to generate a histogram. This 
article also illustrates basic techniques for implementing and using the Analyst TooiPak add-in library, and the Analyst TooiPak 
Visual Basic for Applications (VBA) template add-in with Automation. 

MORE INFORMATION 

1. Create a new Standard EXE project in Visual Basic. Forml Is created by default. 

2. Add a Command button to Forml. 

3. On the Project menu, select References, and then select the Microsoft Excel Object Library. Note that the version 
varies depending on the Microsoft Office version that Is installed on your system. 

4. Add the following code to the Coininandl_Click event 

' ' ' This project requires project references to 

'•' The Excel object library - e.g. Excel9.olb or Excels. olb 

Dim oXl As Excel .Applicatioa 
Dim oBook As Excel .Workbook 
Dim oSheet As Excel .Worksheet 
Dim oRange As Excel. Range 
Dim oAddln As Excel. Addta 

■Launch Excel and make it visible 

Set oXl = CreateObject( "Excel. application") 

oXl. Visible = True 

Set oBook = oXl .Workbooks .Add 

Set oSheet = oBook. worksheets. item (l) 

' Add the Excel Analysis ToolPak library 

oXl.Addlns.Add FileName:=oXl .LibraryPath & "\analysis\analyB32 .xll" 
Set oAddln = oXl.Addlns. Item ("Analysis ToolPak") 

' Register all the Analysis ToolPak functions 

' See Microsoft Knowledge Base Article Q108888, or Q213489 

oXl.RegisterXIiL "Analys32 .xll" 

' Add the Excel Analysis ToolPak - VBA Addin - 

' it ' s the Automation interface to the Analysis ToolPak library 

' Now open the .xla so that you can run its AutoOpen macro now, and others later. 
' See Microsoft Knowledge Base article Q108888, or Q213489 
oXl . Workbooks . Open oXl . LibraryPath & "\analysis\atpvbaen.xla" 
OXl. Workbooks ("atpvbaen. xla") . RunAutcrflaoros 1 

• Fill the worksheet with some data 

' Create and fill the Input Range - See Microsoft Knowle(!^e Base 

' Article Q141684 or Q214269 

Set oRange = oSheet .Cells (1, 1) 

oRange. Value = "87" 

Set oRange = oSheet. Cells (2, 1) 

oRange. Value = "27" 
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Set oRange = 


oSheet 


Cells (3, 


1) 


oRan^e ■ Value 


_ ii45n 






Set oRange = 


oSheet 


Cells (4 , 


1) 


oRange .Value 


= "62" 






Set oRange = 


oSheet 


Cells (5 , 


1) 


oRange . Value 


a "3" 






Set oRaj^ge ^ 


oSheet 


Cells (6, 


1) 


oRange . Value 


= "52" 






Set oRange = 


oSheet 


CelXlit?, 


1) 


oRange .Value 


= "20" 






Set oRange = 


oSheet 


.CeU*(», 


I) 


ol? a T\a^ Va T u 


= "43" 








oSheet 


.Cell* (9, 


i) 


wXVuXl^ C • V O J- uc 


_ 11740 








oSheet 


.Cells (10 


, 1) 




= "61" 








populate the Bin Range 




oSheet 


. Cells (1, 


2) 


ORange. Value 


= "20" 






Set oRange = 


oSheet 


.Cell#m, 


m 


oRange . Value 


= "40" 






Set oRange = 


oSheet 


-CeHjBltt 


m 


oRange . Value 


= "60" 






Set oRange = 


oSheet 


.Cells (4, 




oRange. Value 


= "80" 







' Chart the Histogram on a new Worksheet 

' See Microsoft Knowledge Base article Q108888, or Q213489 

0X1. Run "ATPVBAEN.XLAlHistogram" , oXl . ActiveSheet .Range {" $A$1 : $A$10" ) , 

" " , 0x1 . ActiveSheet . Range ( " $B$1 : $B$4 " ) , _ 

False, False, True, False ' True = Chart 

' Clean up 

Set oAddIn = Nothing 
Set oRange = Nothing 
Set oSheet = Nothing 
Set oBook = Nothing 
oXl.UserCtmtrol = True 
Set 0X1 = Nothing 



5. Run the project, and then dick the Command button on Forml. Results: The histogram's input range and bin range are 
added to SheetllAl:A10 and Sheetl!Bl:B4, respectively. The histogram's output range and diart are then added to a new 
worltsheet ply in the woricboolc 

REFERENCES 

For additional information, click the following article numbers to view the articles in the l^icrosoft Knowledge Base: 

108888 XL: Add-Ins Don't Load When Using CreateObject 

213489 XL2000: Add-Ins Don't Load When Using CreateObject Command 

141684 How to Use the Histogram Add-in 

21426 9 HOW TO: Use the Histogram Add-in in Excel 2000 
For more information about Office Automation, visit the following Microsoft Web site: 

http://sup po rt, rrnc rosof t . com /s upport/offlcedev/ 
(c) l^icrosoft Corporation 2000, All Rights Reserved. Contributions by Chris Jensen, l^icrosoft Corporation. 
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The information in tiiis article applies to: 

• Microsoft Office Excel 2003 

• Microsoft Excel 2000 

• Microsoft Excel 97 for Windows 

• Microsoft Visual Basic Professional Edition for Windows 6.0 

• Microsoft Visual Basic Professional Edition for Windows 5.0 

• Microsoft Visual Basic Enterprise Edition for Windows 6.0 

• Microsoft Visual Basic Enterprise Edition for Windows 5.0 

Last Reviewed: 12/12/2003 (4.0) 
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